﻿Imports Actuariat
Imports Actuariat.Comptes

Namespace moteurTauxGaranti2

    Partial Public Class Moteur_Methode2

        Public Class resultatsMoteur2
            Protected _TableEntreeEnrichie As DataTable
            Protected _TableProjectionGen1Detaillee As DataTable
            Protected _ProjectionGen1Annuelle As ProjectionAnneesReelles
            Protected _ProjAnneeReelleMax As Integer
            Protected _ProjectionGenNAnnuelle As ProjectionAnneesReelles

            Protected _ResultatsCRTVie As Comptes.CompteTechniqueVie_V2.ResultatsCRTVie
            Protected _ResultatsCRTNonVie As Comptes.CompteTechniqueNonVie_V2.ResultatsCRTNonVie
            Protected _ResultatsCRNonTechnique As Comptes.CompteNonTechnique_V2.ResultatsCRNonTechnique
            Protected _ResultatsBesoinsFdsPropres As Comptes.CompteBesoinsFondsPropres_V2.ResultatsCompteBesoinsFondsPropres
            Protected _ResultatsBilan As Comptes.Bilan_V2.ResultatsBilan
            Protected _ResultatsTresorerie As Comptes.CompteTresorerie_V2.ResultatsCompteTresorerie
            Protected _ResultatsIndicateurs As Comptes.Indicateurs_V2.ResultatsIndicateurs

            Public Property TableEntreeEnrichie() As DataTable
                Get
                    Return _TableEntreeEnrichie
                End Get
                Set(ByVal value As DataTable)
                    If Not _TableEntreeEnrichie Is Nothing Then
                        If _TableEntreeEnrichie.Equals(value) Then
                            Exit Property
                        End If
                    End If
                    _TableEntreeEnrichie = value
                    RaiseEvent tableEntreeEnrichie_hasChanged(Me, Nothing)
                End Set
            End Property
            Public Property TableProjectionGen1Detaillee() As DataTable
                Get
                    Return _TableProjectionGen1Detaillee
                End Get
                Set(ByVal value As DataTable)
                    If Not _TableProjectionGen1Detaillee Is Nothing Then
                        If _TableProjectionGen1Detaillee.Equals(value) Then
                            Exit Property
                        End If
                    End If
                    _TableProjectionGen1Detaillee = value
                    RaiseEvent tableProjectionGen1Detaillee_hasChanged(Me, Nothing)
                End Set
            End Property
            Public Property ProjectionGen1Annuelle() As ProjectionAnneesReelles
                Get
                    Return _ProjectionGen1Annuelle
                End Get
                Set(ByVal value As ProjectionAnneesReelles)
                    If Not _ProjectionGen1Annuelle Is Nothing Then
                        If _ProjectionGen1Annuelle.Equals(value) Then
                            Exit Property
                        End If
                    End If
                    _ProjectionGen1Annuelle = value
                    RaiseEvent ProjectionGen1Annuelle_hasChanged(Me, Nothing)
                End Set
            End Property
            Public Property ProjectionGenNAnnuelle() As ProjectionAnneesReelles
                Get
                    Return _ProjectionGenNAnnuelle
                End Get
                Set(ByVal value As ProjectionAnneesReelles)
                    If Not _ProjectionGenNAnnuelle Is Nothing Then
                        If _ProjectionGenNAnnuelle.Equals(value) Then
                            Exit Property
                        End If
                    End If
                    _ProjectionGenNAnnuelle = value
                    RaiseEvent ProjectionGenNAnnuelle_hasChanged(Me, Nothing)
                End Set
            End Property
            Public Property ProjAnneeReelleMax() As Integer
                Get
                    Return _ProjAnneeReelleMax
                End Get
                Set(ByVal value As Integer)
                    If Not _ProjAnneeReelleMax = value Then
                        _ProjAnneeReelleMax = value
                        RaiseEvent ProjAnneeRelleMax_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property

            Public Property compteCRTVie() As Comptes.CompteTechniqueVie_V2.ResultatsCRTVie
                Get
                    Return _ResultatsCRTVie
                End Get
                Set(ByVal value As Comptes.CompteTechniqueVie_V2.ResultatsCRTVie)
                    If Not value.Equals(_ResultatsCRTVie) Then
                        _ResultatsCRTVie = value
                        RaiseEvent compteCRTvie_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteCRTNonVie() As Comptes.CompteTechniqueNonVie_V2.ResultatsCRTNonVie
                Get
                    Return _ResultatsCRTNonVie
                End Get
                Set(ByVal value As Comptes.CompteTechniqueNonVie_V2.ResultatsCRTNonVie)
                    If Not value.Equals(_ResultatsCRTNonVie) Then
                        _ResultatsCRTNonVie = value
                        RaiseEvent compteCRTNonVie_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteCRNonTechnique() As Comptes.CompteNonTechnique_V2.ResultatsCRNonTechnique
                Get
                    Return _ResultatsCRNonTechnique
                End Get
                Set(ByVal value As Comptes.CompteNonTechnique_V2.ResultatsCRNonTechnique)
                    If Not value.Equals(_ResultatsCRNonTechnique) Then
                        _ResultatsCRNonTechnique = value
                        RaiseEvent compteCRTNonTechnique_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteBesoinsFdsPropres() As Comptes.CompteBesoinsFondsPropres_V2.ResultatsCompteBesoinsFondsPropres
                Get
                    Return _ResultatsBesoinsFdsPropres
                End Get
                Set(ByVal value As Comptes.CompteBesoinsFondsPropres_V2.ResultatsCompteBesoinsFondsPropres)
                    If Not value.Equals(_ResultatsBesoinsFdsPropres) Then
                        _ResultatsBesoinsFdsPropres = value
                        RaiseEvent compteBesoinsFdsPropres_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteBilan() As Comptes.Bilan_V2.ResultatsBilan
                Get
                    Return _ResultatsBilan
                End Get
                Set(ByVal value As Comptes.Bilan_V2.ResultatsBilan)
                    If Not value.Equals(_ResultatsBilan) Then
                        _ResultatsBilan = value
                        RaiseEvent compteBilan_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteTresorerie() As CompteTresorerie_V2.ResultatsCompteTresorerie
                Get
                    Return _ResultatsTresorerie
                End Get
                Set(ByVal value As CompteTresorerie_V2.ResultatsCompteTresorerie)
                    If Not value.Equals(_ResultatsTresorerie) Then
                        _ResultatsTresorerie = value
                        RaiseEvent compteTresorerie_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Property compteIndicateur() As Comptes.Indicateurs_V2.ResultatsIndicateurs
                Get
                    Return _ResultatsIndicateurs
                End Get
                Set(ByVal value As Comptes.Indicateurs_V2.ResultatsIndicateurs)
                    If Not value.Equals(_ResultatsIndicateurs) Then
                        _ResultatsIndicateurs = value
                        RaiseEvent compteIndicateur_hasChanged(Me, Nothing)
                    End If
                End Set
            End Property
            Public Sub clear()
                _TableEntreeEnrichie = Nothing
                _TableProjectionGen1Detaillee = Nothing
                _ProjectionGen1Annuelle = Nothing
                _ProjAnneeReelleMax = 0
                _ProjectionGenNAnnuelle = Nothing
                _ResultatsCRTVie = Nothing
                _ResultatsCRTNonVie = Nothing
                _ResultatsCRNonTechnique = Nothing
                _ResultatsBesoinsFdsPropres = Nothing
                _ResultatsBilan = Nothing
                _ResultatsTresorerie = Nothing
                _ResultatsIndicateurs = Nothing
            End Sub

            Public Event tableEntreeEnrichie_hasChanged As resultatsMoteur2EventHandler
            Public Event tableProjectionGen1Detaillee_hasChanged As resultatsMoteur2EventHandler
            Public Event ProjectionGen1Annuelle_hasChanged As resultatsMoteur2EventHandler
            Public Event ProjectionGenNAnnuelle_hasChanged As resultatsMoteur2EventHandler
            Public Event ProjAnneeRelleMax_hasChanged As resultatsMoteur2EventHandler
            Public Event compteCRTvie_hasChanged As resultatsMoteur2EventHandler
            Public Event compteCRTNonVie_hasChanged As resultatsMoteur2EventHandler
            Public Event compteCRTNonTechnique_hasChanged As resultatsMoteur2EventHandler
            Public Event compteBesoinsFdsPropres_hasChanged As resultatsMoteur2EventHandler
            Public Event compteBilan_hasChanged As resultatsMoteur2EventHandler
            Public Event compteTresorerie_hasChanged As resultatsMoteur2EventHandler
            Public Event compteIndicateur_hasChanged As resultatsMoteur2EventHandler

            Public Delegate Sub resultatsMoteur2EventHandler(ByVal sender As Object, ByVal e As EventArgs)
        End Class

    End Class
End Namespace